unit FRM_PADRAO;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DynamicSkinForm, SkinCtrls, SkinGrids, spDBGrids, ExtCtrls, DB,
  StdCtrls;

type
  TForm2 = class(TForm)
    Skin: TspDynamicSkinForm;
    BtnPesquisar: TspSkinButton;
    BtnNovo: TspSkinButton;
    spSkinDBGrid1: TspSkinDBGrid;
    statusbar1: TspSkinStatusBar;
    Timer1: TTimer;
    spSkinStatusPanel1: TspSkinStatusPanel;
    spSkinStatusPanel2: TspSkinStatusPanel;
    spSkinStatusPanel3: TspSkinStatusPanel;
    spSkinStatusPanel4: TspSkinStatusPanel;
    spSkinButton1: TspSkinButton;
    spSkinButton2: TspSkinButton;
    GroupBox1: TGroupBox;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses DATA_MODULE, FRM_LOGIN;

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);
begin


//   Statusbar1.Panels [1].Text := ' '+datetostr(date);// para data
// statusbar1.Panels [2].Text := ' '+timetostr(now);//para hora

//*/

  spSkinStatusPanel1.Caption := ' '+datetostr(date);
  spSkinStatusPanel2.Caption := ' '+timetostr(now);
  spSkinStatusPanel3.Caption := FRM_LOGIN.Form1.NomeHotel;
  spSkinStatusPanel4.Caption := FRM_LOGIN.Form1.NomeUsuario;

end;

end.
